home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / POKE FILE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  869b  |  32 lines
  1. 0  HOME 
  2. 1  PRINT "THIS PROGRAM MAKES A TEXT FILE"
  3. 2  PRINT "OF POKES FROM THE SPECIFIED"
  4. 3  PRINT "DECIMAL MEMORY ADDRESSES."
  5. 4  PRINT "THIS FILE CAN THEN BE ADDED TO"
  6. 5  PRINT "A PROGRAM WITH:"
  7. 6  PRINT "  ]EXEC POKEFILE"
  8. 7  PRINT 
  9. 20 D$ = "<CTRL-D>": REM   CTRL D
  10. 30  INPUT "STARTING ADDRESS:";SA
  11. 40  PRINT : INPUT "ENDING ADDRESS:";EAD
  12. 50  PRINT : INPUT "STARTING LINE NUMBER:";SL
  13. 60  PRINT : INPUT "LINE NUMBER INCREMENT:";LI
  14. 65  PRINT D$;"DELETE POKEFILE,V0"
  15. 70  PRINT D$;"OPEN POKEFILE"
  16. 80  PRINT D$;"WRITE POKEFILE"
  17. 100  IF SA >EAD  THEN 200
  18. 110  PRINT SL;
  19. 120  GOSUB 1000
  20. 130  IF SA >EAD  THEN 200
  21. 140  PRINT ":";: GOSUB 1000
  22. 150  IF SA >EAD  THEN 200
  23. 160  PRINT ":";: GOSUB 1000: PRINT 
  24. 170 SL = SL +LI
  25. 180  GOTO 100
  26. 200  PRINT 
  27. 210  PRINT D$;"CLOSE"
  28. 220  END 
  29. 1000  PRINT "POKE ";SA;","; PEEK(SA);
  30. 1010 SA = SA +1
  31. 1020  RETURN 
  32. 2000  REM  BY PHILIP A. WASSON